60000 REM *** MINI MON ***
60001 PRINT"[147]ENTER MEMORY LOCATIONS:"
60002 INPUT"FROM...";F:INPUT"TO.....";T:IFF<0ORT>2^16ORF>TTHEN60001
60003 PRINT"PRESS <SHIFT> TO PAUSE <_> TO EXIT"
60004 FORK=FTOTSTEP6:K$=MID$(STR$(K),2):PRINTK$TAB(6)"->";:FORJ=KTOK+5:A=PEEK(J)
60005 R$=".":IFA>31ANDA<96THENR$=CHR$(A)
60006 T$=T$+R$:A$=MID$(STR$(A),2):IFLEN(A$)=3THEN60010
60007 A$="0"+A$:IFLEN(A$)<3THEN60007
60008 IFPEEK(653)=1THEN60008
60009 IFPEEK(197)=57THENPOKE198,0:END
60010 PRINTA$":";:NEXT:PRINT" "T$:T$="":NEXT